Visual Basic Toolbox/Visual Basic Toolbox (P.I.E.)(1996).ISO/dll_grph/vx3d01/3dlines.frm

Text File | 1995-12-21 | 7KB | 262 lines

VERSION 4.00
Begin VB.Form frm3DLines
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "VBMax 3D Effects Demo - Lines"
   ClientHeight    =   4275
   ClientLeft      =   120
   ClientTop       =   2220
   ClientWidth     =   5850
   Height          =   4680
   Icon            =   "3DLines.frx":0000
   Left            =   60
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4275
   ScaleWidth      =   5850
   ShowInTaskbar   =   0   'False
   Top             =   1875
   Width           =   5970
   Begin VB.Frame Frame2
      Caption         =   "Style"
      Height          =   1275
      Left            =   3180
      TabIndex        =   3
      Top             =   1560
      Width           =   1635
      Begin VB.OptionButton optRaised
         Caption         =   "&Raised"
         Height          =   375
         Left            =   240
         TabIndex        =   0
         Top             =   360
         Value           =   -1  'True
         Width           =   1095
      End
      Begin VB.OptionButton optRecessed
         Caption         =   "R&ecessed"
         Height          =   375
         Left            =   240
         TabIndex        =   1
         Top             =   720
         Width           =   1215
      End
   End
   Begin VB.CommandButton cmdClose
      Cancel          =   -1  'True
      Caption         =   "Close"
      Height          =   495
      Left            =   3420
      TabIndex        =   2
      Top             =   3300
      Width           =   1215
   End
   Begin VB.Line lneLine
      Index           =   23
      X1              =   2100
      X2              =   2460
      Y1              =   3840
      Y2              =   3540
   End
   Begin VB.Line lneLine
      Index           =   22
      X1              =   1020
      X2              =   1380
      Y1              =   3840
      Y2              =   3540
   End
   Begin VB.Line lneLine
      Index           =   21
      X1              =   2100
      X2              =   2460
      Y1              =   2760
      Y2              =   2460
   End
   Begin VB.Line lneLine
      Index           =   20
      X1              =   1020
      X2              =   1380
      Y1              =   2760
      Y2              =   2460
   End
   Begin VB.Line lneLine
      Index           =   19
      X1              =   1380
      X2              =   2460
      Y1              =   3540
      Y2              =   3540
   End
   Begin VB.Line lneLine
      Index           =   18
      X1              =   1380
      X2              =   2460
      Y1              =   2460
      Y2              =   2460
   End
   Begin VB.Line lneLine
      Index           =   17
      X1              =   1380
      X2              =   1380
      Y1              =   2460
      Y2              =   3540
   End
   Begin VB.Line lneLine
      Index           =   16
      X1              =   2460
      X2              =   2460
      Y1              =   2460
      Y2              =   3540
   End
   Begin VB.Line lneLine
      Index           =   15
      X1              =   2040
      X2              =   5280
      Y1              =   960
      Y2              =   960
   End
   Begin VB.Line lneLine
      Index           =   14
      X1              =   180
      X2              =   180
      Y1              =   120
      Y2              =   4140
   End
   Begin VB.Line lneLine
      Index           =   13
      X1              =   60
      X2              =   5760
      Y1              =   4020
      Y2              =   4020
   End
   Begin VB.Line lneLine
      Index           =   12
      X1              =   5580
      X2              =   5580
      Y1              =   120
      Y2              =   4140
   End
   Begin VB.Line lneLine
      Index           =   11
      X1              =   60
      X2              =   5760
      Y1              =   240
      Y2              =   240
   End
   Begin VB.Line lneLine
      Index           =   10
      X1              =   1200
      X2              =   1200
      Y1              =   480
      Y2              =   2340
   End
   Begin VB.Line lneLine
      Index           =   9
      X1              =   360
      X2              =   1980
      Y1              =   1200
      Y2              =   1200
   End
   Begin VB.Line lneLine
      Index           =   8
      X1              =   720
      X2              =   1620
      Y1              =   1680
      Y2              =   780
   End
   Begin VB.Line lneLine
      Index           =   7
      X1              =   720
      X2              =   1620
      Y1              =   780
      Y2              =   780
   End
   Begin VB.Line lneLine
      Index           =   6
      X1              =   2520
      X2              =   2520
      Y1              =   600
      Y2              =   2040
   End
   Begin VB.Line lneLine
      Index           =   5
      X1              =   2460
      X2              =   2460
      Y1              =   420
      Y2              =   2220
   End
   Begin VB.Line lneLine
      Index           =   4
      X1              =   2100
      X2              =   2100
      Y1              =   2760
      Y2              =   3840
   End
   Begin VB.Line lneLine
      Index           =   3
      X1              =   1020
      X2              =   1020
      Y1              =   2760
      Y2              =   3840
   End
   Begin VB.Line lneLine
      Index           =   2
      X1              =   1020
      X2              =   2100
      Y1              =   2760
      Y2              =   2760
   End
   Begin VB.Line lneLine
      Index           =   1
      X1              =   1020
      X2              =   2100
      Y1              =   3840
      Y2              =   3840
   End
   Begin VB.Line lneLine
      Index           =   0
      X1              =   2220
      X2              =   4980
      Y1              =   1020
      Y2              =   1020
   End
End
Attribute VB_Name = "frm3DLines"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Dim mo3D  As New cls3D

Private Sub Form_Load()
    Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
    mo3D.Style = gnRAISED
    MakeLines3D
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set mo3D = Nothing
    Set frm3DLines = Nothing
End Sub

Private Sub optRaised_Click()
    mo3D.Style = gnRAISED
    MakeLines3D
End Sub

Private Sub optRecessed_Click()
    mo3D.Style = gnRECESSED
    MakeLines3D
End Sub

Sub MakeLines3D()
Dim i As Integer
    For i = 0 To 23
        mo3D.Line3D lneLine(i)
    Next i
End Sub

Private Sub cmdClose_Click()
    Unload Me
End Sub